﻿Public Partial Class Formulario_web11
    Inherits System.Web.UI.Page

    Dim ocnTrabajoFinal As New CapaNegocio.TrabajoFinal
    Dim ocnNotas As New CapaNegocio.Notas


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cargargrilla()
    End Sub

    Function cargargrilla()
        Dim ds As New DataSet
        ds = ocnNotas.obtenerNotasAprobadas()
        Me.GridViewListaNotasAprobadas.DataSource = ds.Tables(0)
        Me.GridViewListaNotasAprobadas.DataBind()
        Return Me.GridViewListaNotasAprobadas
    End Function

    Function cargargrilla(ByVal fechaDesde As DateTime, ByVal fechaHasta As DateTime)
        Dim ds As New DataSet
        ds = ocnNotas.obtenerNotasAprobadas(fechaDesde, fechaHasta)
        Me.GridViewListaNotasAprobadas.DataSource = ds.Tables(0)
        Me.GridViewListaNotasAprobadas.DataBind()
        Return Me.GridViewListaNotasAprobadas
    End Function

    Protected Sub ButtonConsulta_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonConsulta.Click
        cargargrilla(CDate(Me.FechaDesde.Text), CDate(Me.FechaHasta.Text))
    End Sub

    Private Sub FechaHasta_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles FechaHasta.Init
        Me.FechaHasta.Text = DateTime.Now.ToString("d")
    End Sub

End Class